
module LanguageTest where
import Test.HUnit
import LanguageParser

prog1 = "def main(a, b) := a = b"

--node = Right (Node {nodeType = RootNode, pos = Pos 0 0, children = [Node {nodeType = RelationDefNode \"main\", pos = Pos 1 1, children = [Node {nodeType = VarListNode, pos = Pos 0 0, children = [Node {nodeType = VarNode \"a\", pos = Pos 1 10, children = []},Node {nodeType = VarNode \"b\", pos = Pos 1 13, children = []}]},Node {nodeType = EqualNode, pos = Pos 1 21, children = [Node {nodeType = VarNode \"a\", pos = Pos 1 19, children = []},Node {nodeType = VarNode \"b\", pos = Pos 1 23, children = []}]}]}]})


-- x = putStr $ show (parseString prog1) 

--LanguageTests = [
--    "Basic" ~: RootNode  ~=?  emptyDict \\ (String "a", Prim Null),
